﻿Imports CapaLogica.CL.Foro
Imports CapaLogica.CL.Tema

Public Class Foros
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Try
            ''Ejecuta la accion
            Dim accion = Request("accion")


            If accion = "CERRAR_TEMA" Then
                Dim idTema = Request("id_tema")
                GestorTema.CerrarTema(idTema)

            ElseIf accion = "BORRAR_TEMA" Then
                Dim idTema = Request("id_tema")
                GestorTema.eliminarTema(idTema)

            End If
        Catch
            Seguridad.redirigirPorError("Ocurrio un error a la hora de listar los foros", Response)
        End Try

    End Sub

    Public Function getListaForos() As List(Of Dictionary(Of String, Object))

        Try
            Dim idUsuario As Integer = CType(Session("id"), Integer)
            Dim rol As Integer = CType(Session("rol"), Integer)
            Dim listaForos As List(Of Dictionary(Of String, Object))

            If rol = 1 Then
                listaForos = GestorForo.listarForosDeEstudianteWeb(idUsuario)
            Else
                listaForos = GestorForo.listarForosDeProfesorWeb(idUsuario)
            End If
            Return listaForos
        Catch ex As Exception
            Seguridad.redirigirPorError("Ocurrio un error a la hora de listar los foros", Response)
        End Try


    End Function

    Public Function getDuenoForo(ByVal pidForo As Integer) As Boolean
        Return GestorForo.validarSiEsDuenioForo(Session("id"), pidForo)
    End Function

    Function getOpcionesUsuario(ByVal pestado As Boolean, ByVal idTema As String, ByVal nombreTema As String, ByVal estadoTema As String, ByVal pDueno As Boolean)

        Try
            Dim html As String = ""


            ''1 rol de estudiante
            If (Session("rol") = 1) Then
                html = "<li id='li_" & idTema & "'><span id='estado_" & idTema & "'>" & estadoTema & "</span>" & nombreTema & " |" &
                    "<img id='" & idTema & "'name='" & nombreTema & "'src='images/lupa.jpg' class='iconsForo tema_cons' title='Consultar tema'/>" &
                    "</span></li>"
            Else

                html = "<li id='li_" & idTema & "'><span id='estado_" & idTema & "'>" & estadoTema & "</span>" & nombreTema & " |" &
                "<img id='" & idTema & "' src='images/collapse32-black.png' class='iconsForo tema_de' title='Eliminar tema' />"

                ''Si esta abierto habilita las opciones de administrador
                If (pestado And pDueno) Then
                    html = html & "<span id='img_" & idTema & "'>" &
                        "<img id='" & idTema & "' src='images/modificar.jpg' class='iconsForo tema_up' title='Modificar tema' />" &
                        "<img id='" & idTema & "' src='images/candado.jpg' class='iconsForo tema_clo' title='Cerrar tema'/>" &
                        "<img id='" & idTema & "'name='" & nombreTema & "'src='images/lupa.jpg' class='iconsForo tema_cons' title='Consultar tema'/>" &
                        "</span>"
                End If


                html = html & "</li>"

            End If



            Return html
        Catch ex As Exception
            Seguridad.redirigirPorError("Ocurrio un error a la hora de listar los foros", Response)
        End Try


    

    End Function





End Class